home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / risc_src.lha / risc_sources / xlib / visual.t < prev    next >
Text File  |  1990-06-01  |  1KB  |  26 lines
  1. (herald visual (env tsys (xlib interface)))
  2. (DEFINE (MAKE-VISUAL) (CONS 'VISUALP (MAKE-BYTEV 32)))
  3. (DEFINE (VISUAL-EXT_DATA X)
  4.         ((LAMBDA (X Y) (CONS 'XEXTDATAP (MREF-POINTER X Y)))
  5.          (CHK-VISUALP X)
  6.          0))
  7. (DEFINE (VISUAL-EXT_DATA! X Y)
  8.         ((LAMBDA (X Y Z) (SET-MREF-POINTER! X Y (CHK-XEXTDATAP Z)))
  9.          (CHK-VISUALP X)
  10.          0
  11.          Y))
  12. (DEFINE (VISUAL-VISUALID X) (MREF-INTEGER (CHK-VISUALP X) 4))
  13. (DEFINE (VISUAL-VISUALID! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 4 Y))
  14. (DEFINE (VISUAL-CLASS X) (MREF-INTEGER (CHK-VISUALP X) 8))
  15. (DEFINE (VISUAL-CLASS! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 8 Y))
  16. (DEFINE (VISUAL-RED_MASK X) (MREF-INTEGER (CHK-VISUALP X) 12))
  17. (DEFINE (VISUAL-RED_MASK! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 12 Y))
  18. (DEFINE (VISUAL-GREEN_MASK X) (MREF-INTEGER (CHK-VISUALP X) 16))
  19. (DEFINE (VISUAL-GREEN_MASK! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 16 Y))
  20. (DEFINE (VISUAL-BLUE_MASK X) (MREF-INTEGER (CHK-VISUALP X) 20))
  21. (DEFINE (VISUAL-BLUE_MASK! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 20 Y))
  22. (DEFINE (VISUAL-BITS_PER_RGB X) (MREF-INTEGER (CHK-VISUALP X) 24))
  23. (DEFINE (VISUAL-BITS_PER_RGB! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 24 Y))
  24. (DEFINE (VISUAL-MAP_ENTRIES X) (MREF-INTEGER (CHK-VISUALP X) 28))
  25. (DEFINE (VISUAL-MAP_ENTRIES! X Y) (SET-MREF-INTEGER! (CHK-VISUALP X) 28 Y))
  26.